home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DAYYEAR.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  287b  |  12 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION DayOfYearDate% (Dt$) STATIC
  5.  
  6. CALL DateToMDY(Dt$, M%, D%, Y%)
  7.  
  8. DayOfYearDate% = (M% - 1) * 28 + VAL(MID$("000303060811131619212426", (M% - 1) * 2 + 1, 2)) - ((M% > 2) AND ((Y% AND NOT -4) = 0)) + D%
  9.  
  10. END FUNCTION
  11.  
  12.